use strict;
use replaceKey;
use Data::Dumper;

my $replaceTool=new replaceKey;
my $hashRef={'a'=>"AAA",'b'=>"\$\$"};
$replaceTool->SetKeyHash($hashRef);

my @data;
push @data,"abd\$(b)bbb\$(a)\n";

my @newData=$replaceTool->ReplaceData(@data);

print "@newData\n";

